(help-key-description): Show the untranslated keys

when they start with ESC and the ESC was not translated.

diff --git a/lisp/help.el b/lisp/help.el
index 6e5060629e13eb41a450abaae4484bfe599750c4..713dd6dfa23d3a34714511997ff9cf2514a3d1e1 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -461,7 +461,8 @@ or `keymap' property, return the binding of KEY in the string's keymap."
 
 (defun help-key-description (key untranslated)
   (let ((string (key-description key)))
-    (if (or (not untranslated) (eq (aref untranslated 0) ?\e))
+    (if (or (not untranslated)
+           (and (eq (aref untranslated 0) ?\e) (not (eq (aref key 0) ?\e))))
        string
       (let ((otherstring (key-description untranslated)))
        (if (equal string otherstring)